home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 01 (1989-01)(MicroSPARC)(Side A)[a].zip / Nibble Volume 10, No. 01 (1989-01)(MicroSPARC)(Side A)[a].po / NOGGIN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  33 lines

  1. 10  REM  **********************
  2. 20  REM  * NOGGIN             *
  3. 30  REM  * BY MARK YANNONE    *
  4. 40  REM  * COPYRIGHT(C) 1989  *
  5. 50  REM  * MICROSPARC, INC.   *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME : PRINT  CHR$(21);: INVERSE : PRINT  TAB( 10)"N   O   G   G   I   N" TAB( 41): PRINT "BY MARK YANNONE  (C)1989 MICROSPARC, INC";
  9. 90  POKE 34,5: GOSUB 280: VTAB 21: PRINT "SCORING:": PRINT "LETTERS IN WORD -->  4  5  6  7  8+":
  10. 100  PRINT "POINTS          -->  1  2  3  5  10": FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT " <- ->     (P)AUSE     (N)EW     (Q)UIT";: POKE 35,19: POKE 33,14
  11. 110  POKE 32,13:X = 49200: DIM B$(25,6),N(25),M(25):I =  RND( -( PEEK(78) +256 * PEEK(79))):I = 1: FOR E = I TO 25: FOR F = I TO 6: READ B$(E,F): NEXT : NEXT :F = 6
  12. 120 E = 25: FOR G = I TO E:M(G) = C: NEXT : ON   NOT H GOTO 130: HOME : GOSUB 280
  13. 130  FOR G = I TO E
  14. 140 M =  INT( RND(I) *E) +I: ON M(M) >C GOTO 140:M(M) = M:N(G) = M: NEXT : FOR L = I TO 5: FOR Z = I TO 5:Z$(L,Z) = B$(N(E), INT( RND(I) *F) +I):E = E -I: NEXT : NEXT :T = 300
  15. 150  HOME :S = C: FOR Z = I TO 5: VTAB 2 *Z +4: FOR L = I TO 5: GOTO 190
  16. 160  HOME : FOR L = I TO 5: VTAB 2 *L +4: FOR Z = 5 TO I  STEP  -I: GOTO 190
  17. 170  HOME : FOR Z = 5 TO I  STEP  -I: VTAB 16 -2 *Z: FOR L = 5 TO I  STEP  -I: GOTO 190
  18. 180  HOME : FOR L = 5 TO I  STEP  -I: VTAB 16 -2 *L: FOR Z = I TO 5
  19. 190  PRINT  LEFT$(Z$(L,Z) +"  ",3);: NEXT : PRINT : NEXT : PRINT 
  20. 200  VTAB 17: HTAB 5: INVERSE : PRINT " " RIGHT$("00" + STR$(T) +" ",4): NORMAL :H =  PEEK(X) + PEEK(X):T = T -I: ON T <C GOTO 270: FOR H = 1 TO 1040: NEXT :A$ = "": ON  PEEK(49152) <128 GOTO 200:A$ =  CHR$( PEEK(49152) -128)
  21. 210  POKE 49168,C: ON A$ =  CHR$(80)  OR A$ =  CHR$(112) GOTO 240: ON A$ =  CHR$(8)  OR A$ =  CHR$(21) GOTO 220: ON A$ =  CHR$(78)  OR A$ =  CHR$(110) GOTO 320: ON (A$ =  CHR$(81)  OR A$ =  CHR$(113)) GOTO 300: GOTO 200
  22. 220 S = S -I *(A$ =  CHR$(8)) +I *(A$ =  CHR$(21)):S = S - INT(S/4) *4: IF S <C  THEN  ON  ABS(S) GOTO 180,170,160
  23. 230  ON S GOTO 160,170,180: GOTO 150
  24. 240  HOME : VTAB 12: HTAB 2: PRINT "WAITING...";: GET A$: POKE 49168,C: GOTO 220
  25. 250 Y = 0: HOME : VTAB 12: PRINT "ARE YOU SURE? (Y/N) ";: POKE  -16368,0: GET AN$: PRINT AN$;:Y = AN$ = "Y"  OR AN$ = "y": IF   NOT Y  AND AN$ < >"n"  AND AN$ < >"N"  THEN 250
  26. 260  VTAB 12: PRINT  SPC( 40);: RETURN 
  27. 270  VTAB 18: HTAB 3: INVERSE : PRINT  CHR$(7)" S T O P " CHR$(7);: NORMAL : HTAB 29: GET A$: GOTO 120
  28. 280  VTAB 12: HTAB 15 - PEEK(32): INVERSE : PRINT "SHAKING DICE": NORMAL : RETURN : DATA R,L,H,H,D,O,W,R,O,V,R,G,Y,R,R,R,P,I,Y,R,F,S,P,I,D,D,O,N,H,T,S,E,N,U,S,S,S,A,R,A,F,I,X,B,K,J,Z,QU,S,A,R,I,Y,F,R,N,H,L,D,O,C,L,I,T,I,E,E,N,N,N,A,D,M,T,E
  29. 290  DATA T,T,O,M,E,A,U,G,E,N,U,W,T,O,O,M,A,N,G,E,N,C,L,I,T,E,P,E,A,E,A,E,E,U,T,T,O,O,O,T,E,T,I,I,I,O,R,D,H,L,N,S,I,T,C,E,P,N,T,C,S,E,C,F,A,A,A,R,S,M,E,A,E,E,E
  30. 300  GOSUB 250: IF   NOT Y  THEN  GOTO 220
  31. 310  TEXT : HOME : END 
  32. 320  GOSUB 250: IF   NOT Y  THEN 220
  33. 330  GOTO 120